home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / education / pe042.dms / pe042.adf / *I Saw A Ship A-Sailing* / I Saw A Ship A-sailing / I Saw A Ship A-sailing.amosSourceCode < prev    next >
AMOS Source Code  |  1993-03-10  |  288b  |  18 lines
  1. Hide 
  2. Volume 63
  3. 7382 For J=6 To 7
  4. If J=6 Then Unpack 6 To 0
  5. If J=7 Then Unpack 7 To 0
  6. Music 1
  7. For T=0 To 40000
  8. 7 If Mouse Key=2 Then Change Mouse 3 : Show : Proc _END
  9. Next T
  10. Next J
  11. Goto 7382
  12. Procedure _END
  13.    For V=63 To 0 Step -1
  14.       Volume V
  15.       Wait Vbl 
  16.    Next 
  17.    Edit 
  18. End Proc